home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / arc / Misc / ARCHandler / Scripts / ToARC.dmrx < prev    next >
Text File  |  1996-08-10  |  223b  |  12 lines
  1. /* Change DiskMaster directory from directory on Archives:
  2. ** to original directory. */
  3.  
  4. parse arg dir
  5.  
  6. i=index(dir,':')
  7. if i~=0 then
  8.   do
  9.     dir="Archives:" || left(dir,i-1) || '/' || substr(dir,i+1)
  10.     NewDir dir
  11.   end
  12.